home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994…tember: Reference Library / Dev.CD Sep 94.toast / Periodicals / develop / develop Issue 19 / develop 19 code / SimpliFace_V2 / Sources / ObjModelTokens.cp < prev    next >
Encoding:
Text File  |  1994-05-01  |  19.1 KB  |  829 lines  |  [TEXT/MPS ]
  1. /*
  2.     File:        ObjModelTokens.cp
  3.  
  4.     Contains:    Token classes implementation
  5.  
  6.  
  7.     Developed by:
  8.  
  9.     Paul G Smith (commstalk hq & Full Moon Software, Inc)
  10.  
  11.     you can leave messages at (UK): 0727 844232; (US): 408 253 7199
  12.     BUT I prefer to be contacted by e-mail
  13.     AppleLink:     COMMSTALK.HQ
  14.     Internet:     COMMSTALK.HQ@applelink.apple.com
  15.  
  16.     "SimpliFace2" Sample code to accompany develop article
  17.     on techniques for controlling script inheritance.
  18.     
  19.     
  20.  
  21.  
  22.     Apple Event Object Model tokens for SimpliFace2
  23.  
  24. */
  25.  
  26.  
  27. #ifndef __MENUS__
  28. #include <Menus.h>
  29. #endif
  30. #ifndef __EVENTS__
  31. #include <Events.h>
  32. #endif
  33. #ifndef __WINDOWS__
  34. #include <Windows.h>
  35. #endif
  36. #ifndef __DIALOGS__
  37. #include <Dialogs.h>
  38. #endif
  39. #ifndef __QUICKDRAW__
  40. #include <Quickdraw.h>
  41. #endif
  42. #ifndef __MEMORY__
  43. #include <Memory.h>
  44. #endif
  45. #ifndef __FILES__
  46. #include <Files.h>
  47. #endif
  48. #ifndef __STANDARDFILE__
  49. #include <StandardFile.h>
  50. #endif
  51. #ifndef __SYSEQU__
  52. #include <SysEqu.h>
  53. #endif
  54. #ifndef __PLSTRINGFUNCS__
  55. #include <PLStringFuncs.h>
  56. #endif
  57.  
  58. #ifndef __AERegistry__
  59. #include <AERegistry.h>
  60. #endif
  61. #ifndef __ASREGISTRY__
  62. #include <ASRegistry.h>
  63. #endif
  64. #ifndef __APPLEEVENTS__
  65. #include <AppleEvents.h>
  66. #endif
  67. #ifndef __AEOBJECTS__
  68. #include <AEObjects.h>
  69. #endif
  70.  
  71. #ifndef __AEOBJECTPACKING__
  72. #include <AEPackObject.h>
  73. #endif
  74.  
  75. #ifndef __AEOMTOKENS__
  76. #include "ObjModelTokens.h"
  77. #endif
  78.  
  79. #ifndef __AEOMEVENTS__
  80. #include "ObjModelEvents.h"
  81. #endif
  82.  
  83. #ifndef __SCRIPTUTILS__
  84. #include "ScriptUtils.h"
  85. #endif
  86.  
  87.  
  88.  
  89. #pragma segment ObjectAccessors
  90.  
  91.  
  92.  
  93. // ------------
  94.  
  95.  
  96. // ------------
  97.  
  98. #pragma trace off
  99.  
  100. // utility routines
  101.  
  102. objModelTokenPtr ObjModelTokenFromDesc(AEDesc *theDesc)
  103. {
  104.     objModelTokenPtr    theToken = nil;
  105.     Size                actSize;
  106.     
  107.     if (theDesc->descriptorType == typeObjModelToken)
  108.         GetRawDataFromDescriptor(theDesc, (Ptr)&theToken, sizeof(theToken), &actSize);
  109.         
  110.     return theToken;
  111. }
  112.  
  113. OSErr DescFromObjModelToken(const objModelTokenPtr theToken, AEDesc *theDesc)
  114. {
  115.     return AECreateDesc(typeObjModelToken, (Ptr)&theToken, sizeof(theToken), theDesc);
  116. }
  117.  
  118.  
  119. // -------------------------------------------------------
  120.  
  121. #pragma segment ObjectAccessors
  122.  
  123. #pragma trace off
  124.  
  125.  
  126. TObjModelToken::TObjModelToken(void)
  127. {
  128.     fTokenClass = typeNull;
  129.     fIsProperty = false;
  130.     fPropertyID = typeNull;
  131.     fTheObject = NULL;
  132. }
  133.  
  134.  
  135. TObjModelToken::TObjModelToken(DescType theTokenClass,
  136.                                 TScriptableObject* theObj)
  137. {
  138.     fTokenClass = theTokenClass;
  139.     fIsProperty = false;
  140.     fPropertyID = typeNull;
  141.     fTheObject = theObj;
  142. }
  143.  
  144.  
  145. TObjModelToken::TObjModelToken(const TObjModelToken& oldObj)
  146. {
  147.     fTokenClass = oldObj.fTokenClass;
  148.     fIsProperty = oldObj.fIsProperty;
  149.     fPropertyID = oldObj.fPropertyID;
  150.     fTheObject = oldObj.fTheObject;
  151. }
  152.  
  153.  
  154. TObjModelToken& TObjModelToken::operator=(const TObjModelToken& oldObj)
  155. {
  156.     if (this != &oldObj)
  157.     {
  158.         fTokenClass = oldObj.fTokenClass;
  159.         fIsProperty = oldObj.fIsProperty;
  160.         fPropertyID = oldObj.fPropertyID;
  161.         fTheObject = oldObj.fTheObject;
  162.     }
  163.     return *this;
  164. }
  165.  
  166.  
  167. TObjModelToken::~TObjModelToken(void)
  168. {
  169.     // nothing to do!
  170. }
  171.  
  172.  
  173. TObjModelToken* TObjModelToken::MakeClone(void)
  174. { 
  175.     return new TObjModelToken(*this);
  176. }
  177.  
  178.  
  179. // support for object accessors
  180.  
  181.  
  182. TObjModelToken* TObjModelToken::MakeNewToken (DescType theTokenClass,
  183.                                             TScriptableObject* theObj)
  184. {
  185.     TObjModelToken    *resultToken = new TObjModelToken(theTokenClass, theObj);
  186.     
  187.     return resultToken;
  188. }
  189.  
  190.  
  191. OSErr TObjModelToken::ResolveElement(DescType desiredClass,
  192.                                     DescType keyForm,
  193.                                     AEDesc *keyData,
  194.                                     TObjModelToken **theResultToken)
  195. {
  196.     OSErr                 err = errAEEventNotHandled;
  197.     TScriptableObject     *theResultObj = NULL;
  198.     
  199.     // this function has been called because no derived class knows
  200.     // how to resolve the specified token
  201.     
  202.     // start by testing keyForm; 
  203.  
  204.     if (!fTheObject)    // can't do it if no object referenced!
  205.         return errAEEventNotHandled;
  206.     else if (keyForm == formName)
  207.     {
  208.         CStr255     nameStr = "";
  209.  
  210.         err = GetPStringFromDescriptor(keyData, (char *)&nameStr);
  211.         
  212.         if (err == noErr)
  213.             err = fTheObject->ResolveElementByName(desiredClass, nameStr, 
  214.                                                     &theResultObj);
  215.     } 
  216.     else if (keyForm == formAbsolutePosition)
  217.     {
  218.         short       index;
  219.  
  220.         err = GetIntegerFromDescriptor(keyData, &index);
  221.         if (index < 0)
  222.         {
  223.             long numElems;
  224.             
  225.             if (fTheObject->CountElements(desiredClass, &numElems) == 0)
  226.                 index = numElems + index + 1;
  227.         }
  228.         
  229.         if (err == noErr)
  230.             err = fTheObject->ResolveElementByIndex(desiredClass, index, 
  231.                                                     &theResultObj);
  232.     }
  233.     else
  234.         err = errAEBadKeyForm;
  235.         
  236.     if (err == noErr)
  237.     {
  238.         *theResultToken = MakeNewToken(desiredClass, theResultObj);
  239.     }
  240.     return err;
  241. }
  242.                                     
  243. OSErr TObjModelToken::ResolveProperty(DescType desiredClass,
  244.                                     DescType keyForm,
  245.                                     AEDesc *keyData,
  246.                                     TObjModelToken **theResultToken)
  247. {
  248.     OSErr             err = errAEEventNotHandled;
  249.     DescType          theProperty;
  250.     Size              actualSize;
  251.     
  252.     if (keyForm == formPropertyID)
  253.     {
  254.         GetRawDataFromDescriptor(keyData, (Ptr)&theProperty,
  255.                                  sizeof(theProperty), &actualSize);
  256.         
  257.         fIsProperty = true;
  258.         fPropertyID = theProperty;
  259.         
  260.         // make clone of this token and return reference to 
  261.         // it in theResultToken (requires use of copy constructors)
  262.         
  263.         *theResultToken = this->MakeClone();
  264.         
  265.         if (*theResultToken)
  266.             err = noErr;
  267.     }
  268.     
  269.     return err;
  270. }
  271.  
  272.  
  273. OSErr TObjModelToken::CallDispatchAppleEvent(AppleEvent *theEvent, 
  274.                                     AppleEvent *theReply, 
  275.                                     AEEventClass theEvtClass,
  276.                                     AEEventID theEvtID)
  277. {
  278.     return this->DispatchAppleEvent(theEvent, theReply, theEvtClass, theEvtID);
  279. }
  280.  
  281.  
  282. OSErr TObjModelToken::DispatchAppleEvent(AppleEvent *theEvent, 
  283.                                     AppleEvent *theReply, 
  284.                                     AEEventClass theEvtClass,
  285.                                     AEEventID theEvtID)
  286. {
  287.     OSErr             err = errAEEventNotHandled;
  288.     
  289.     if (!fTheObject)    // can't do it if no object referenced!
  290.         return err;
  291.  
  292.     if (theEvtClass == kASAppleScriptSuite && theEvtID == kASSubroutineEvent)
  293.     {
  294.         //Trace("Received AS subroutine event (not handled)\n");
  295.     }
  296.     else if (theEvtClass == kAEMiscStandards && theEvtID == kAEDoScript)
  297.     {
  298.         //Trace("Received Do Script event (not handled)\n");
  299.     }
  300.     else if (theEvtClass == kAECoreSuite || theEvtClass == kCoreEventClass)
  301.     {
  302.         switch (theEvtID)
  303.         {
  304.         case kAECountElements:
  305.             err = this->AECountElems(theEvent, theReply);
  306.             break;
  307.         case kAECreateElement:
  308.             err = this->AECreateElem(theEvent, theReply);
  309.             break;
  310.         case kAEDelete:
  311.             err = this->AEDeleteElem(theEvent, theReply);
  312.             break;
  313.         case kAEClose:
  314.             err = this->AECloseObject(theEvent, theReply);
  315.             break;
  316.         case kAEGetData:
  317.             err = this->AEGetObjectData(theEvent, theReply);
  318.             break;
  319.         case kAEOpen:
  320.             err = this->AEOpenObject(theEvent, theReply);
  321.             break;
  322.         case kAESetData:
  323.             err = this->AESetObjectData(theEvent, theReply);
  324.             break;
  325.         }
  326.     }
  327.     return err;
  328. }
  329.                         
  330.  
  331. // hooks into Apple Event handling, only override for special-purposes;
  332. // return noErr if Apple Event was handled within the hook function, or 
  333. // errAEEventNotHandled if it was not handled within the hook function
  334.  
  335. OSErr TObjModelToken::AECountElems        (AppleEvent *theEvent, 
  336.                                         AppleEvent *theReply)
  337. {
  338.     OSErr                 err = errAEEventNotHandled;
  339.     AEDesc                resultDesc;
  340.     Size                theSize;
  341.     DescType            theType, desiredClass;
  342.     long                result;
  343.  
  344.     InitAEDescs(&resultDesc, kEndOfList);
  345.     
  346.     err = AEGetParamPtr(theEvent, keyAEObjectClass, typeType, &theType,
  347.                         (Ptr)&desiredClass, sizeof(DescType), &theSize);
  348.     
  349.     if (err == noErr)
  350.         err = fTheObject->CountElements(desiredClass, &result);
  351.         
  352.     if (err == noErr)
  353.         err = AECreateDesc(typeLongInteger, &result, sizeof(long), &resultDesc);
  354.         
  355.     if (err == noErr && theReply->descriptorType != typeNull)
  356.         err = AEPutParamDesc(theReply, keyDirectObject, &resultDesc);
  357.     
  358.     DisposeAEDescs(&resultDesc, kEndOfList);
  359.     
  360.     return err;
  361. }
  362.  
  363. OSErr TObjModelToken::AECreateElem        (AppleEvent *theEvent, 
  364.                                         AppleEvent *theReply)
  365. {
  366.     //     get insertionloc
  367.     //        resolve insertion point
  368.     //     get desired object class
  369.     //  ask object at insertion point to create new object
  370.     //    get new object's data (optional param)
  371.     //        save data
  372.     //    get new object's properties record  (optional param)
  373.     //        save properties
  374.     //    ask new object to create it's own object specifier
  375.     //    return object specifier as result
  376.     OSErr                 err = errAEEventNotHandled;
  377.     AEDesc                resultDesc, dataObject;
  378.     AEDesc                insLocParam, insLocObject, theTokenDesc;
  379.     AERecord            insLocRec, dataPropParam;
  380.     TObjModelToken         *theToken = NULL;
  381.     Size                theSize;
  382.     DescType            theType, position;
  383.     DescType            theClass;
  384.     
  385.     InitAEDescs(&insLocParam, &insLocRec, &insLocObject, &theTokenDesc,
  386.                 &resultDesc, &dataObject, &dataPropParam, kEndOfList);
  387.     
  388.     err = AEGetParamPtr(theEvent, keyAEObjectClass, typeType, &theType,
  389.                         (Ptr)&theClass, sizeof(DescType), &theSize);
  390.     if (err == noErr)
  391.         err = AEGetParamDesc(theEvent, keyAEInsertHere, typeInsertionLoc, &insLocParam);
  392.     if (err)
  393.     {
  394.         TObjModelToken    *aApplicationToken = NULL;
  395.         
  396.         position = kAEEnd;
  397.         err = MakeAppToken(&aApplicationToken);
  398.         if (err == noErr)
  399.         {
  400.             theToken = aApplicationToken;
  401.             DescFromObjModelToken(theToken, &theTokenDesc);
  402.         }
  403.     }
  404.     else
  405.     {
  406.         // coerce the insertion loc record to an AE record.
  407.         err = AECoerceDesc(&insLocParam, typeAERecord, &insLocRec);
  408.         if (err == noErr)
  409.             err = AEGetKeyPtr(&insLocRec, keyAEPosition, typeEnumeration, &theType, 
  410.                                 (Ptr)&position, sizeof(DescType), &theSize);
  411.         if (err == noErr)    //    Get the object reference
  412.             err = AEGetKeyDesc(&insLocRec, keyAEObject, 
  413.                                 typeWildCard, &insLocObject);
  414.     
  415.         if (err == noErr)
  416.         {
  417.             err = AEResolve(&insLocObject, kAEIDoMinimum, &theTokenDesc);
  418.             
  419.             if (err == noErr)
  420.                 theToken = ObjModelTokenFromDesc(&theTokenDesc);
  421.         }
  422.     }
  423.  
  424.     if (theToken)
  425.     {
  426.         TScriptableObject     *theNewObj = NULL;
  427.         TObjModelToken        *theNewToken = NULL;
  428.         TScriptableObject    *containerObj = NULL;
  429.         AERecord            *dataPropPtr = NULL;
  430.  
  431.         err = theToken->GetTokenObj()->ResolveContainer(&containerObj);
  432.  
  433.         if (position == kAEReplace && 
  434.              (theToken->GetTokenClass() == cApplication
  435.               || theToken->GetTokenClass() == cDocument))
  436.             err = errAEEventNotHandled;
  437.         else
  438.         {
  439.             err = AEGetParamDesc(theEvent, keyAEData, typeWildCard, &dataObject);
  440.             err = AEGetParamDesc(theEvent, keyAEPropData, typeAERecord, 
  441.                                     &dataPropParam);
  442.             if (err == noErr)
  443.                 dataPropPtr = &dataPropParam;
  444.             // ignore errors if above calls fail
  445.             err = theToken->GetTokenObj()->CreateNewElement(theClass, position, 
  446.                                             &dataObject, dataPropPtr,
  447.                                             containerObj, &theNewObj);
  448.             if (err == noErr)
  449.                 theNewToken = MakeNewToken(theClass, theNewObj);
  450.                 
  451.             if (err == noErr && theNewToken)
  452.                 theNewToken->GetTokenObj()->GetObjectSpecifier(&resultDesc);
  453.             if (theNewToken)
  454.                 delete theNewToken;
  455.         }
  456.     }
  457.     
  458.     if (err == noErr && (resultDesc.descriptorType != typeNull) 
  459.         && (theReply->descriptorType != typeNull))
  460.         err = AEPutParamDesc(theReply, keyDirectObject, &resultDesc);
  461.     
  462.     AEDisposeToken(&theTokenDesc); // DO NOT CALL until done with 'theToken'
  463.     DisposeAEDescs(&insLocParam, &insLocRec, &insLocObject,
  464.                     &resultDesc, &dataObject, &dataPropParam, kEndOfList);
  465.     return err;
  466. }
  467.  
  468. OSErr TObjModelToken::AEDeleteElem        (AppleEvent *theEvent, 
  469.                                         AppleEvent *theReply)
  470. {
  471.     OSErr         err = fTheObject->DeleteObject();
  472.     
  473.     return err;
  474. }
  475.  
  476. OSErr TObjModelToken::AECloseObject       (AppleEvent *theEvent, 
  477.                                         AppleEvent *theReply)
  478. {
  479.     return fTheObject->CloseObject();
  480. }
  481.  
  482. OSErr TObjModelToken::AEGetObjectData   (AppleEvent *theEvent, 
  483.                                         AppleEvent *theReply)
  484. {
  485.     OSErr         err = errAEEventNotHandled;
  486.     AEDesc        resultDesc;
  487.  
  488.     resultDesc.dataHandle = NULL;
  489.  
  490.     if (fIsProperty)
  491.     {
  492.         DescType        wantType, actualType;
  493.         Size            actualSize;
  494.         
  495.         err = AEGetParamPtr(theEvent, keyAERequestedType, typeType, &actualType,
  496.                             (Ptr)&wantType, sizeof(DescType), &actualSize);
  497.         if (err)
  498.             wantType = typeWildCard;
  499.         
  500.         err = fTheObject->GetProperty(fPropertyID, wantType, &resultDesc);
  501.     }
  502.     else
  503.     {
  504.         err = fTheObject->GetData(&resultDesc);
  505.         if (err == errAEEventNotHandled)
  506.             err = AEGetParamDesc(theEvent, keyDirectObject, 
  507.                                     typeObjectSpecifier, &resultDesc);
  508.     }
  509.     
  510.     if (err == noErr && theReply->descriptorType != typeNull)
  511.         err = AEPutParamDesc(theReply, keyDirectObject, &resultDesc);
  512.     
  513.     AEDisposeDesc(&resultDesc);
  514.     
  515.     return err;
  516. }
  517.  
  518. OSErr TObjModelToken::AEOpenObject      (AppleEvent *theEvent, 
  519.                                         AppleEvent *theReply)
  520. {
  521.     return fTheObject->OpenObject();
  522. }
  523.  
  524. OSErr TObjModelToken::AESetObjectData   (AppleEvent *theEvent, 
  525.                                         AppleEvent *theReply)
  526. {
  527.     OSErr     err = errAEEventNotHandled;
  528.     AEDesc    dataDesc;
  529.  
  530.     dataDesc.dataHandle = NULL;
  531.     
  532.     err = AEGetParamDesc(theEvent, keyAEData, typeWildCard, &dataDesc);
  533.     
  534.     if (fIsProperty)
  535.         err = fTheObject->SetProperty(fPropertyID, &dataDesc);
  536.     else
  537.         err = fTheObject->SetData(&dataDesc);
  538.         
  539.     AEDisposeDesc(&dataDesc);
  540.     
  541.     return err;
  542. }
  543.  
  544.  
  545. // -------------------------------------------------------
  546.  
  547.  
  548.  
  549. #pragma segment Main
  550.     
  551. // object accessors 
  552.  
  553.  
  554. OSErr MakeAppToken(TObjModelToken** theApplicationToken)
  555. {
  556.     OSErr               err = errAEEventNotHandled;
  557.  
  558.     *theApplicationToken = new TObjModelToken(cApplication, gSimpliFace2);
  559.         
  560.     if (theApplicationToken)
  561.         err = 0;
  562.     else
  563.         err = -108; // out of memory
  564.  
  565.     return err;
  566. }
  567.  
  568.  
  569. pascal OSErr PropertyFromNullAccessor   (DescType desiredClass,
  570.                                                 AEDesc *containerToken,
  571.                                                 DescType containerClass,
  572.                                                 DescType keyForm,
  573.                                                 AEDesc *keyData,
  574.                                                 AEDesc *theToken,
  575.                                                 long theRefCon)
  576. {
  577.     OSErr               err = errAEEventNotHandled;
  578.     objModelTokenPtr     theResolvedToken = NULL;
  579.     TObjModelToken        *aApplicationToken = NULL;
  580.  
  581.     if ((desiredClass != cProperty) || (containerClass != typeNull))
  582.         return(errAEWrongDataType);
  583.     
  584.     // we assume property being requested is an application property, 
  585.     // and create a temporary application token
  586.     err = MakeAppToken(&aApplicationToken);
  587.     if (err == noErr)
  588.     {
  589.         err = DescFromObjModelToken((const objModelTokenPtr)aApplicationToken, theToken);
  590.     
  591.         if (err == noErr && theToken)
  592.         {    // ask the temporary application token to resolve the property
  593.             // (this step creates a new token)
  594.             err = aApplicationToken->ResolveProperty(desiredClass, keyForm, keyData, &theResolvedToken);
  595.             if (err == noErr && theResolvedToken)
  596.             {
  597.                 err = DescFromObjModelToken((const objModelTokenPtr)theResolvedToken, theToken);
  598.             }
  599.         }
  600.         
  601.         if (aApplicationToken)
  602.             delete aApplicationToken;    // dispose of the temporary application token
  603.     }
  604.     return err;
  605. }
  606.                                                 
  607.  
  608. pascal OSErr AppTokenFromNullAccessor  (DescType desiredClass,
  609.                                         AEDesc *containerToken,
  610.                                         DescType containerClass,
  611.                                         DescType keyForm,
  612.                                         AEDesc *keyData,
  613.                                         AEDesc *theToken,
  614.                                         long theRefCon)
  615. {
  616.     OSErr               err = errAEEventNotHandled;
  617.     TObjModelToken    *aApplicationToken = NULL;
  618.     
  619.     if ((desiredClass != cApplication) || (containerClass != typeNull))
  620.         return(errAEWrongDataType);
  621.     
  622.     err = MakeAppToken(&aApplicationToken);
  623.  
  624.     if (err == noErr)
  625.         err = DescFromObjModelToken((const objModelTokenPtr)aApplicationToken, 
  626.                                     theToken);
  627.      
  628.     return(err);
  629. }
  630.                                                 
  631.  
  632. pascal OSErr StdObjectFromNullAccessor   (DescType desiredClass,
  633.                                             AEDesc *containerToken,
  634.                                             DescType containerClass,
  635.                                             DescType keyForm,
  636.                                             AEDesc *keyData,
  637.                                             AEDesc *theToken,
  638.                                             long theRefCon)
  639. {
  640.     OSErr               err = errAEEventNotHandled;
  641.     TObjModelToken    *aApplicationToken = NULL;
  642.     objModelTokenPtr     theResolvedToken = NULL;
  643.     
  644.     if (containerClass != typeNull)
  645.         return(errAEWrongDataType);
  646.     
  647.     err = MakeAppToken(&aApplicationToken);
  648.     
  649.     if (err == noErr)
  650.     {
  651.         err = aApplicationToken->ResolveElement(desiredClass, keyForm, 
  652.                                                 keyData, &theResolvedToken);
  653.         if (err == noErr && theResolvedToken)
  654.         {
  655.             err = DescFromObjModelToken((const objModelTokenPtr)theResolvedToken, 
  656.                                         theToken);
  657.         }
  658.         delete aApplicationToken;
  659.     }
  660.  
  661.     return(err);
  662. }
  663.                                                 
  664.  
  665.                                                 
  666.  
  667. pascal OSErr StdObjectAccessor (DescType desiredClass,
  668.                                         AEDesc *containerToken,
  669.                                         DescType containerClass,
  670.                                         DescType keyForm,
  671.                                         AEDesc *keyData,
  672.                                         AEDesc *theToken,
  673.                                         long theRefCon)
  674. {
  675.     OSErr err = errAEEventNotHandled;
  676.     objModelTokenPtr theContToken = ObjModelTokenFromDesc(containerToken);
  677.     objModelTokenPtr theResolvedToken = nil;
  678.     
  679.     if (theToken)
  680.     {
  681.         err = theContToken->ResolveElement(desiredClass, keyForm, keyData, &theResolvedToken);
  682.         if ((err == 0) && theResolvedToken)
  683.         {
  684.             err = DescFromObjModelToken((const objModelTokenPtr)theResolvedToken, theToken);
  685.         }
  686.             
  687.     }
  688.     
  689.     return err;
  690. }
  691.                                         
  692.                                     
  693. pascal OSErr StdPropertyAccessor(DescType desiredClass,
  694.                                         AEDesc *containerToken,
  695.                                         DescType containerClass,
  696.                                         DescType keyForm,
  697.                                         AEDesc *keyData,
  698.                                         AEDesc *theToken,
  699.                                         long theRefCon)
  700. {
  701.     OSErr err = errAEEventNotHandled;
  702.     objModelTokenPtr theContToken = ObjModelTokenFromDesc(containerToken);
  703.     objModelTokenPtr theResolvedToken = nil;
  704.     
  705.     if (theContToken && theToken)
  706.     {
  707.         err = theContToken->ResolveProperty(desiredClass, keyForm, keyData, &theResolvedToken);
  708.         if ((err == 0) && theResolvedToken)
  709.         {
  710.             err = DescFromObjModelToken((const objModelTokenPtr)theResolvedToken, theToken);
  711.         }
  712.             
  713.     }
  714.     
  715.     return err;
  716. }
  717.                                         
  718.  
  719. // object support callbacks
  720.  
  721. pascal OSErr StdCountProc        (DescType desiredClass,
  722.                                         DescType containerClass,
  723.                                         AEDesc *containerToken,
  724.                                         long *result)
  725. {
  726.     OSErr                 err = errAEEventNotHandled;
  727.     objModelTokenPtr     theToken = ObjModelTokenFromDesc(containerToken);
  728.  
  729.     if (theToken)
  730.         err = theToken->GetTokenObj()->CountElements(desiredClass, result);
  731.     
  732.     return err;
  733. }
  734.                                         
  735.                                     
  736. pascal OSErr StdCompareProc    (DescType comparisonOperator,
  737.                                         AEDesc object,
  738.                                         DescType objOrDescToCompare,
  739.                                         Boolean& result)
  740. {
  741.     OSErr err = errAEEventNotHandled;
  742.     
  743.     
  744.     return err;
  745. }
  746.  
  747.                                             
  748. pascal OSErr StdDisposeToken   (AEDesc *unneededToken)
  749. {
  750.     OSErr err =    errAEEventNotHandled;
  751.  
  752.     if (unneededToken)
  753.     {
  754.         objModelTokenPtr theToken = ObjModelTokenFromDesc(unneededToken);
  755.         if (theToken)
  756.         {
  757.             delete theToken;
  758.             err = AEDisposeDesc(unneededToken);
  759.             unneededToken->dataHandle = NULL; // in case OSL deletes us twice
  760.         }
  761.     }
  762.     return err;
  763. }
  764.  
  765.  
  766.  
  767. // -------setup
  768.  
  769.  
  770.  
  771. OSErr InstallAccessors(void);
  772.  
  773. OSErr DeInstallAccessors(void);
  774.  
  775.  
  776. // #pragma segment ObjectInit
  777.  
  778. // set up object model handlers
  779. OSErr SFinitAEobjects(void)
  780. {
  781.     OSErr err = 0;
  782.     
  783.     err = InstallAccessors();
  784.     
  785.     return err;
  786. }
  787.  
  788. // detach object model handlers & shut down
  789. OSErr SFendAEobjects(void)
  790. {
  791.     OSErr err = 0;
  792.     
  793.     err = DeInstallAccessors();
  794.     
  795.     return err;
  796. }
  797.  
  798.  
  799. // installation
  800.  
  801. OSErr InstallAccessors(void)
  802. {
  803.     OSErr err = 0;
  804.     
  805.     if (err == noErr) err = AEInstallObjectAccessor(cApplication, typeNull, (accessorProcPtr)&AppTokenFromNullAccessor, (long)cApplication, false);
  806.     if (err == noErr) err = AEInstallObjectAccessor(typeWildCard, typeNull, (accessorProcPtr)&StdObjectFromNullAccessor, 0, false);
  807.     if (err == noErr) err = AEInstallObjectAccessor(typeWildCard, typeObjModelToken, (accessorProcPtr)&StdObjectAccessor, 0, false);
  808.  
  809.     if (err == noErr) err = AEInstallObjectAccessor(cProperty, typeNull, (accessorProcPtr)&PropertyFromNullAccessor, (long)cProperty, false);
  810.     if (err == noErr) err = AEInstallObjectAccessor(cProperty, typeObjModelToken, (accessorProcPtr)&StdPropertyAccessor, (long)cProperty, false);
  811.     
  812.     if (err == noErr) err = AESetObjectCallbacks(   (compareProcPtr)&StdCompareProc, 
  813.                                             (countProcPtr)&StdCountProc, 
  814.                                             (disposeTokenProcPtr)&StdDisposeToken,
  815.                                             nil, nil, nil, nil);
  816.     
  817.     return err;
  818. }
  819.  
  820. OSErr DeInstallAccessors(void)
  821. {
  822.     OSErr err = 0;
  823.  
  824.     
  825.     return err;
  826. }
  827.  
  828.  
  829.